home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
DDJMAG
/
DDJ9203.ZIP
/
OOPASM.ZIP
/
VMENU2.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-07-22
|
1KB
|
73 lines
.MODEL SMALL
INCLUDE equates.inc
INCLUDE instance.inc
INCLUDE messages.inc
INCLUDE objects.inc
UR EQU 1 ;Upper row
LC EQU 18 ;Left column
LR EQU 6 ;Lower row
RC EQU 30 ;Right column
MR EQU UR-1 ;Mouse row
IF1
INCLUDE macros.mac
INCLUDE objects.mac
ENDIF
EXTRN Hardware:WORD
EXTRN MenuBar:WORD
EXTRN Self:WORD
EXTRN System:WORD
EXTRN VertMenu:WORD
.CODE
.DATA
defMenu VertMenu2,<\
" Instances ",\
" Methods ",\
" Messages ",\
" Objects ">
defMenuTbl VertMenu2,\
<Self,Clear>,\
<Self,Clear>,\
<Self,Clear>,\
<Self,Clear>
defDispTbl VertMenu2,\
<0,0,3,0,0,0,0,System,Reset>,\
<0,72,3,0,0,0,0,Self,Prev>,\
<0,80,3,0,0,0,0,Self,Next>,\
<13,28,0,MR,LC,LR,LC+12,Self,Select>,\
<0,Nil,1,MR,LC,LR,LC+12,Self,Drag>,\
<0,68,3,0,0,0,0,Self,Clear,System,Refresh,System,Read>,\
<0,75,1,MR,LC-9,MR,LC-1,Self,Clear,MenuBar,SelectPrev>,\
<0,77,1,MR,LC+6,MR,Nil,Self,Clear,MenuBar,SelectNext>,\
<27,1,0,0,0,24,79,Self,Clear>,\
<0,Nil,1,0,0,24,79,Self,DeHilite>,\
<Nil,Nil,Nil,0,0,24,79,Hardware,Refresh>
defObj VertMenu2,\
<VertMenu>,\
<Row1,1,UR,\
Col1,1,LC,\
Row2,1,LR,\
Col2,1,RC,\
Color,1,17h,\
Unused,1,Nil,\
TxtPtr,2,Nil,\
InxPtr,2,0,\
MasterObj,2,Nil,\
DispTbl,2,VertMenu2DispTbl,\
MenuPtr,2,VertMenu2Menu,\
MenuTbl,2,VertMenu2MenuTbl>,\
<Refresh,Read,Next,Prev,Select,Clear,Hilite,DeHilite,Drag>
END